home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / geschaef / ds0093 / topfakt / adrlist5.for < prev    next >
Text File  |  1993-06-30  |  2KB  |  57 lines
  1. / Adressen-Umsatzliste
  2. ^17
  3. ^12^BAdressen-Umsatzliste ^b^17
  4. /
  5. !#VORHERIGE_GRUPPE:= "' '"
  6.                                                                                                 Seite: #SEITE:8:0
  7.                                                                                                 Stand: #DATUM
  8.  
  9. Nr.    Vorname    Name                           Land  PLZ   Ort                            Angelegt     Umsatz
  10. ───────────────────────────────────────────────────────────────────────────────────────────────────────────────
  11. /23456 1234567890 123456789012345678901234567890 123   12345 123456789012345678901234567890 12345678 1234567890
  12. /
  13. !LISTE:55                         // Druck Liste maximal bis Druckzeile 55
  14. /
  15. !#Anz:= #Anz + 1
  16. !WENN #Gruppe <> ' ' .AND. #Vorherige_Gruppe <> #Gruppe
  17.  
  18. #Gruppentitel  #Gruppe      // Ausgabe der Gruppe bei entsprechender Sortierung
  19.  
  20. !ENDEWENN
  21. /
  22. #NR    #VORNAME   #NAME                          #LAND #PLZ  #ORT                           #SEIT    #GESUMSATZ:10:2
  23. /
  24. !#vorherige_Gruppe:= #Gruppe
  25. !#SumUmsatz:= #SumUmsatz+ #GesUmsatz
  26. !ENDELISTE
  27. /
  28. !WENN #LETZTESEITE
  29. ───────────────────────────────────────────────────────────────────────────────────────────────────────────────
  30. Anzahl der aufgelisteten Adressen: #ANZ:6                                                   Umsatz:  #SumUmsatz:10:2
  31. !ENDEWENN
  32. /
  33. !SEITENAUSWURF
  34. !FORMULARENDE    // alles, was hiernach kommt, wird nicht mehr gedruckt...
  35.  
  36.  
  37.  
  38. !PLATZHALTER
  39.   #NR,               kun->kdnr
  40.   #VORNAME,          Substr( kun->n1, 1, 10)     // die ersten 10 Zeichen drucken
  41.   #NAME,             kun->n2
  42.   #STRASSE,          kun->strasse
  43.   #LAND,             kun->land+ '  '
  44.   #PLZ,              kun->plz
  45.   #ORT,              kun->ort
  46.   #ANZ,              anz                         // Anzahl der Adressen zählen
  47.  
  48.   #SEIT,             kun->seit
  49.   #GesUmsatz,        kun->ges_umsatz
  50.  
  51.   #GRUPPE,           IF( 'Gruppe'$ cKunSort, kun->Gruppe, IF( 'Status'$cKunSort, kun->Status, '') )
  52.   #GRUPPENTITEL,     IF( 'Gruppe'$ cKunSort, 'GRUPPE: ', IF( 'Status'$cKunSort, 'STATUS: ', ''))
  53.   #VORHERIGE_GRUPPE, vorhergruppe
  54.  
  55.   #SumUmsatz,        sumumsatz
  56. !ENDE PLATZHALTER
  57.